Creation of ammonite dataframe

Fossil_Database <- data.frame("Fossil_Type" = c("Ammonites", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Mazon_Creek", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""), 
                              "Name" = c("", "MOLAM0001", "MOLAM0002", "MOLAM0003", "MOLAM0004", "MOLAM0005", "MOLAM0006", "MOLAM0007", "MOLAM0008", "MOLAM0009", "MOLAM0010", "MOLAM0011", "MOLAM0012", "MOLAM0013", "MOLAM0014", "MOLAM0015", "MOLAM0016", "MOLAM0017", "MOLAM0018", "", "MAZCRK0001", "MAZCRK0002", "MAZCRK0003", "MAZCRK0004", "MAZCRK0005", "MAZCRK0006", "MAZCRK0007", "MAZCRK0008", "MAZCRK0009", "MAZCRK0010", "MAZCRK0011", "MAZCRK0012", "MAZCRK0013", "MAZCRK0014", "MAZCRK0015", "MAZCRK0016", "MAZCRK0017", "MAZCRK0018", "MAZCRK0019", "MAZCRK0020", "MAZCRK0021", "MAZCRK0022", "MAZCRK0023", "MAZCRK0024", "MAZCRK0025", "MAZCRK0026", "MAZCRK0027", "MAZCRK0028", "MAZCRK0029", "MAZCRK0030", "MAZCRK0031", "MAZCRK0032", "MAZCRK0033", "MAZCRK0034", "MAZCRK0035", "MAZCRK0036", "MAZCRK0037"),
                              "Genus" = c("", "Graspedites", "N/A", "Polished Belemnite", "Eleganticeras", "Metalegoceras", "N/A", "Hypocladiscites", "N/A", "Lanceolites", "54", "Tissotia", "Microdoceras", "Laevaptychus", "N/A", "N/A", "Muensteroceras", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Species" = c("", "N/A", "N/A", "N/A", "elegantulum", "tschernyschewi", "N/A", "subaratus_plantus", "N/A", "compactus", "N/A", "obesa", "N/A", "latus", "N/A", "N/A", "parallelum", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Country" = c("", "Russia", "Nepal", "Russia", "England", "Indonesia", "United_Kingdom", "Indonesia", "United_States_of_America", "Indonesia", "Morocco", "Peru", "United_Kingdom", "England", "United_Kingdom", "United_States_of_America", "United_States_of_America", "United_Kingdom", "Morocco", "", "United_States_of_America", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "State_or_Region" = c("", "N/A", "Annapurna, Mustang", "Tarstan Region", "North Yorkshire, Whitby Cannonball", "Timor, Noe Bihati", "Charmouth", "Timor, Noe Bihati", "Wyoming", "Timor, Noe Bihati", "N/A", "Cajamarca", "Black Ven, Lyme Regis", "Westbury, Wiltshire", "North Yorkshire, Nr. Whitby Kettleness", "Little Glasses Creek, Marshall County, Little Glasses Creek, Oklahoma", "Jackson County, Indiana", "Charmouth", "N/A", "", "Illinois", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Formation" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A","N/A","N/A","N/A","N/A", "N/A","N/A","N/A","N/A", "N/A", "Rockford_Limestone", "N/A", "N/A", "", "Mazon_Creek", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Time_Period" = c("", "Jurassic", "Jurassic", "Late Jurassic", "Lower Jurassic", "Lower Permian", "N/A", "Norian, Triassic", "N/A", "Lower Triassic Smithian", "N/A", "Upper Cretaceous Coniacian", "N/A", "Kimmeridgian Jurassic", "Bifrons Zone, Commune Subzone, Upper Lias, Lower Jurassic", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Dates" = c("", "N/A", "~185 MYA", "165 MYA", "180 MYA", "N/A", "N/A", "227-208.5 MYA", "N/A", "N/A", "N/A", "N/A", "N/A", "157 MYA", "180 MYA", "N/A", "325 MYA", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Value" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Collector" = c("", "R. Unzha Kostroma", "N/A", "Dr. Utt", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N. Zachariades", "N/A", "Dr. Utt", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Common_Name" = c("", "N/A", "Shaligram", "polished Belemite", "N/A", "N/A", "N/A", "N/A", "Belemite Guard", "N/A", "Goniatite", "N/A", "N/A", "N/A", "Whitby Snakestone", "N/A", "N/A", "N/A", "Goniatite", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Descriptor" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A", "Mojsisovics", "N/A", "N/A", "N/A", "N/A", "N/A", "Parkinson", "N/A", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Miscellaneous" = c("", "N/A", "Kali_Gandaki_River", "N/A", "polished upper lias, falciferum subzone", "N/A", "Belemite", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "aptychii: paired calcereous plates forming part of the jaw apparatus in certain ammonite families", "N/A", "Rhynocholites", "Mississippian Pd", "Pyritized", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
                              "Images" = c("MOLAM001.png"))
library("data.table")
data.table(Fossil_Database)
##     Fossil_Type       Name              Genus           Species
##  1:   Ammonites                                                
##  2:              MOLAM0001        Graspedites               N/A
##  3:              MOLAM0002                N/A               N/A
##  4:              MOLAM0003 Polished Belemnite               N/A
##  5:              MOLAM0004      Eleganticeras       elegantulum
##  6:              MOLAM0005      Metalegoceras    tschernyschewi
##  7:              MOLAM0006                N/A               N/A
##  8:              MOLAM0007    Hypocladiscites subaratus_plantus
##  9:              MOLAM0008                N/A               N/A
## 10:              MOLAM0009        Lanceolites         compactus
## 11:              MOLAM0010                 54               N/A
## 12:              MOLAM0011           Tissotia             obesa
## 13:              MOLAM0012       Microdoceras               N/A
## 14:              MOLAM0013       Laevaptychus             latus
## 15:              MOLAM0014                N/A               N/A
## 16:              MOLAM0015                N/A               N/A
## 17:              MOLAM0016     Muensteroceras        parallelum
## 18:              MOLAM0017                N/A               N/A
## 19:              MOLAM0018                N/A               N/A
## 20: Mazon_Creek                                                
## 21:             MAZCRK0001                                     
## 22:             MAZCRK0002                                     
## 23:             MAZCRK0003                                     
## 24:             MAZCRK0004                                     
## 25:             MAZCRK0005                                     
## 26:             MAZCRK0006                                     
## 27:             MAZCRK0007                                     
## 28:             MAZCRK0008                                     
## 29:             MAZCRK0009                                     
## 30:             MAZCRK0010                                     
## 31:             MAZCRK0011                                     
## 32:             MAZCRK0012                                     
## 33:             MAZCRK0013                                     
## 34:             MAZCRK0014                                     
## 35:             MAZCRK0015                                     
## 36:             MAZCRK0016                                     
## 37:             MAZCRK0017                                     
## 38:             MAZCRK0018                                     
## 39:             MAZCRK0019                                     
## 40:             MAZCRK0020                                     
## 41:             MAZCRK0021                                     
## 42:             MAZCRK0022                                     
## 43:             MAZCRK0023                                     
## 44:             MAZCRK0024                                     
## 45:             MAZCRK0025                                     
## 46:             MAZCRK0026                                     
## 47:             MAZCRK0027                                     
## 48:             MAZCRK0028                                     
## 49:             MAZCRK0029                                     
## 50:             MAZCRK0030                                     
## 51:             MAZCRK0031                                     
## 52:             MAZCRK0032                                     
## 53:             MAZCRK0033                                     
## 54:             MAZCRK0034                                     
## 55:             MAZCRK0035                                     
## 56:             MAZCRK0036                                     
## 57:             MAZCRK0037                                     
##     Fossil_Type       Name              Genus           Species
##                      Country
##  1:                         
##  2:                   Russia
##  3:                    Nepal
##  4:                   Russia
##  5:                  England
##  6:                Indonesia
##  7:           United_Kingdom
##  8:                Indonesia
##  9: United_States_of_America
## 10:                Indonesia
## 11:                  Morocco
## 12:                     Peru
## 13:           United_Kingdom
## 14:                  England
## 15:           United_Kingdom
## 16: United_States_of_America
## 17: United_States_of_America
## 18:           United_Kingdom
## 19:                  Morocco
## 20:                         
## 21: United_States_of_America
## 22:                         
## 23:                         
## 24:                         
## 25:                         
## 26:                         
## 27:                         
## 28:                         
## 29:                         
## 30:                         
## 31:                         
## 32:                         
## 33:                         
## 34:                         
## 35:                         
## 36:                         
## 37:                         
## 38:                         
## 39:                         
## 40:                         
## 41:                         
## 42:                         
## 43:                         
## 44:                         
## 45:                         
## 46:                         
## 47:                         
## 48:                         
## 49:                         
## 50:                         
## 51:                         
## 52:                         
## 53:                         
## 54:                         
## 55:                         
## 56:                         
## 57:                         
##                      Country
##                                                           State_or_Region
##  1:                                                                      
##  2:                                                                   N/A
##  3:                                                    Annapurna, Mustang
##  4:                                                        Tarstan Region
##  5:                                    North Yorkshire, Whitby Cannonball
##  6:                                                     Timor, Noe Bihati
##  7:                                                             Charmouth
##  8:                                                     Timor, Noe Bihati
##  9:                                                               Wyoming
## 10:                                                     Timor, Noe Bihati
## 11:                                                                   N/A
## 12:                                                             Cajamarca
## 13:                                                 Black Ven, Lyme Regis
## 14:                                                   Westbury, Wiltshire
## 15:                                North Yorkshire, Nr. Whitby Kettleness
## 16: Little Glasses Creek, Marshall County, Little Glasses Creek, Oklahoma
## 17:                                               Jackson County, Indiana
## 18:                                                             Charmouth
## 19:                                                                   N/A
## 20:                                                                      
## 21:                                                              Illinois
## 22:                                                                      
## 23:                                                                      
## 24:                                                                      
## 25:                                                                      
## 26:                                                                      
## 27:                                                                      
## 28:                                                                      
## 29:                                                                      
## 30:                                                                      
## 31:                                                                      
## 32:                                                                      
## 33:                                                                      
## 34:                                                                      
## 35:                                                                      
## 36:                                                                      
## 37:                                                                      
## 38:                                                                      
## 39:                                                                      
## 40:                                                                      
## 41:                                                                      
## 42:                                                                      
## 43:                                                                      
## 44:                                                                      
## 45:                                                                      
## 46:                                                                      
## 47:                                                                      
## 48:                                                                      
## 49:                                                                      
## 50:                                                                      
## 51:                                                                      
## 52:                                                                      
## 53:                                                                      
## 54:                                                                      
## 55:                                                                      
## 56:                                                                      
## 57:                                                                      
##                                                           State_or_Region
##              Formation
##  1:                   
##  2:                N/A
##  3:                N/A
##  4:                N/A
##  5:                N/A
##  6:                N/A
##  7:                N/A
##  8:                N/A
##  9:                N/A
## 10:                N/A
## 11:                N/A
## 12:                N/A
## 13:                N/A
## 14:                N/A
## 15:                N/A
## 16:                N/A
## 17: Rockford_Limestone
## 18:                N/A
## 19:                N/A
## 20:                   
## 21:        Mazon_Creek
## 22:                   
## 23:                   
## 24:                   
## 25:                   
## 26:                   
## 27:                   
## 28:                   
## 29:                   
## 30:                   
## 31:                   
## 32:                   
## 33:                   
## 34:                   
## 35:                   
## 36:                   
## 37:                   
## 38:                   
## 39:                   
## 40:                   
## 41:                   
## 42:                   
## 43:                   
## 44:                   
## 45:                   
## 46:                   
## 47:                   
## 48:                   
## 49:                   
## 50:                   
## 51:                   
## 52:                   
## 53:                   
## 54:                   
## 55:                   
## 56:                   
## 57:                   
##              Formation
##                                                   Time_Period         Dates
##  1:                                                                        
##  2:                                                  Jurassic           N/A
##  3:                                                  Jurassic      ~185 MYA
##  4:                                             Late Jurassic       165 MYA
##  5:                                            Lower Jurassic       180 MYA
##  6:                                             Lower Permian           N/A
##  7:                                                       N/A           N/A
##  8:                                          Norian, Triassic 227-208.5 MYA
##  9:                                                       N/A           N/A
## 10:                                   Lower Triassic Smithian           N/A
## 11:                                                       N/A           N/A
## 12:                                Upper Cretaceous Coniacian           N/A
## 13:                                                       N/A           N/A
## 14:                                     Kimmeridgian Jurassic       157 MYA
## 15: Bifrons Zone, Commune Subzone, Upper Lias, Lower Jurassic       180 MYA
## 16:                                                       N/A           N/A
## 17:                                                       N/A       325 MYA
## 18:                                                       N/A           N/A
## 19:                                                       N/A           N/A
## 20:                                                                        
## 21:                                                                        
## 22:                                                                        
## 23:                                                                        
## 24:                                                                        
## 25:                                                                        
## 26:                                                                        
## 27:                                                                        
## 28:                                                                        
## 29:                                                                        
## 30:                                                                        
## 31:                                                                        
## 32:                                                                        
## 33:                                                                        
## 34:                                                                        
## 35:                                                                        
## 36:                                                                        
## 37:                                                                        
## 38:                                                                        
## 39:                                                                        
## 40:                                                                        
## 41:                                                                        
## 42:                                                                        
## 43:                                                                        
## 44:                                                                        
## 45:                                                                        
## 46:                                                                        
## 47:                                                                        
## 48:                                                                        
## 49:                                                                        
## 50:                                                                        
## 51:                                                                        
## 52:                                                                        
## 53:                                                                        
## 54:                                                                        
## 55:                                                                        
## 56:                                                                        
## 57:                                                                        
##                                                   Time_Period         Dates
##     Value         Collector       Common_Name  Descriptor
##  1:                                                      
##  2:   N/A R. Unzha Kostroma               N/A         N/A
##  3:   N/A               N/A         Shaligram         N/A
##  4:   N/A           Dr. Utt polished Belemite         N/A
##  5:   N/A               N/A               N/A         N/A
##  6:   N/A               N/A               N/A         N/A
##  7:   N/A               N/A               N/A         N/A
##  8:   N/A               N/A               N/A Mojsisovics
##  9:   N/A               N/A    Belemite Guard         N/A
## 10:   N/A               N/A               N/A         N/A
## 11:   N/A               N/A         Goniatite         N/A
## 12:   N/A               N/A               N/A         N/A
## 13:   N/A               N/A               N/A         N/A
## 14:   N/A    N. Zachariades               N/A   Parkinson
## 15:   N/A               N/A Whitby Snakestone         N/A
## 16:   N/A           Dr. Utt               N/A         N/A
## 17:   N/A               N/A               N/A         N/A
## 18:   N/A               N/A               N/A         N/A
## 19:   N/A               N/A         Goniatite         N/A
## 20:   N/A                                                
## 21:                                                      
## 22:                                                      
## 23:                                                      
## 24:                                                      
## 25:                                                      
## 26:                                                      
## 27:                                                      
## 28:                                                      
## 29:                                                      
## 30:                                                      
## 31:                                                      
## 32:                                                      
## 33:                                                      
## 34:                                                      
## 35:                                                      
## 36:                                                      
## 37:                                                      
## 38:                                                      
## 39:                                                      
## 40:                                                      
## 41:                                                      
## 42:                                                      
## 43:                                                      
## 44:                                                      
## 45:                                                      
## 46:                                                      
## 47:                                                      
## 48:                                                      
## 49:                                                      
## 50:                                                      
## 51:                                                      
## 52:                                                      
## 53:                                                      
## 54:                                                      
## 55:                                                      
## 56:                                                      
## 57:                                                      
##     Value         Collector       Common_Name  Descriptor
##                                                                                         Miscellaneous
##  1:                                                                                                  
##  2:                                                                                               N/A
##  3:                                                                                Kali_Gandaki_River
##  4:                                                                                               N/A
##  5:                                                           polished upper lias, falciferum subzone
##  6:                                                                                               N/A
##  7:                                                                                          Belemite
##  8:                                                                                               N/A
##  9:                                                                                               N/A
## 10:                                                                                               N/A
## 11:                                                                                               N/A
## 12:                                                                                               N/A
## 13:                                                                                               N/A
## 14: aptychii: paired calcereous plates forming part of the jaw apparatus in certain ammonite families
## 15:                                                                                               N/A
## 16:                                                                                     Rhynocholites
## 17:                                                                                  Mississippian Pd
## 18:                                                                                         Pyritized
## 19:                                                                                               N/A
## 20:                                                                                                  
## 21:                                                                                                  
## 22:                                                                                                  
## 23:                                                                                                  
## 24:                                                                                                  
## 25:                                                                                                  
## 26:                                                                                                  
## 27:                                                                                                  
## 28:                                                                                                  
## 29:                                                                                                  
## 30:                                                                                                  
## 31:                                                                                                  
## 32:                                                                                                  
## 33:                                                                                                  
## 34:                                                                                                  
## 35:                                                                                                  
## 36:                                                                                                  
## 37:                                                                                                  
## 38:                                                                                                  
## 39:                                                                                                  
## 40:                                                                                                  
## 41:                                                                                                  
## 42:                                                                                                  
## 43:                                                                                                  
## 44:                                                                                                  
## 45:                                                                                                  
## 46:                                                                                                  
## 47:                                                                                                  
## 48:                                                                                                  
## 49:                                                                                                  
## 50:                                                                                                  
## 51:                                                                                                  
## 52:                                                                                                  
## 53:                                                                                                  
## 54:                                                                                                  
## 55:                                                                                                  
## 56:                                                                                                  
## 57:                                                                                                  
##                                                                                         Miscellaneous
##           Images
##  1: MOLAM001.png
##  2: MOLAM001.png
##  3: MOLAM001.png
##  4: MOLAM001.png
##  5: MOLAM001.png
##  6: MOLAM001.png
##  7: MOLAM001.png
##  8: MOLAM001.png
##  9: MOLAM001.png
## 10: MOLAM001.png
## 11: MOLAM001.png
## 12: MOLAM001.png
## 13: MOLAM001.png
## 14: MOLAM001.png
## 15: MOLAM001.png
## 16: MOLAM001.png
## 17: MOLAM001.png
## 18: MOLAM001.png
## 19: MOLAM001.png
## 20: MOLAM001.png
## 21: MOLAM001.png
## 22: MOLAM001.png
## 23: MOLAM001.png
## 24: MOLAM001.png
## 25: MOLAM001.png
## 26: MOLAM001.png
## 27: MOLAM001.png
## 28: MOLAM001.png
## 29: MOLAM001.png
## 30: MOLAM001.png
## 31: MOLAM001.png
## 32: MOLAM001.png
## 33: MOLAM001.png
## 34: MOLAM001.png
## 35: MOLAM001.png
## 36: MOLAM001.png
## 37: MOLAM001.png
## 38: MOLAM001.png
## 39: MOLAM001.png
## 40: MOLAM001.png
## 41: MOLAM001.png
## 42: MOLAM001.png
## 43: MOLAM001.png
## 44: MOLAM001.png
## 45: MOLAM001.png
## 46: MOLAM001.png
## 47: MOLAM001.png
## 48: MOLAM001.png
## 49: MOLAM001.png
## 50: MOLAM001.png
## 51: MOLAM001.png
## 52: MOLAM001.png
## 53: MOLAM001.png
## 54: MOLAM001.png
## 55: MOLAM001.png
## 56: MOLAM001.png
## 57: MOLAM001.png
##           Images
data
## function (..., list = character(), package = NULL, lib.loc = NULL, 
##     verbose = getOption("verbose"), envir = .GlobalEnv, overwrite = TRUE) 
## {
##     fileExt <- function(x) {
##         db <- grepl("\\.[^.]+\\.(gz|bz2|xz)$", x)
##         ans <- sub(".*\\.", "", x)
##         ans[db] <- sub(".*\\.([^.]+\\.)(gz|bz2|xz)$", "\\1\\2", 
##             x[db])
##         ans
##     }
##     names <- c(as.character(substitute(list(...))[-1L]), list)
##     if (!is.null(package)) {
##         if (!is.character(package)) 
##             stop("'package' must be a character string or NULL")
##         if (any(package %in% "base")) 
##             warning("datasets have been moved from package 'base' to package 'datasets'")
##         if (any(package %in% "stats")) 
##             warning("datasets have been moved from package 'stats' to package 'datasets'")
##         package[package %in% c("base", "stats")] <- "datasets"
##     }
##     paths <- find.package(package, lib.loc, verbose = verbose)
##     if (is.null(lib.loc)) 
##         paths <- c(path.package(package, TRUE), if (!length(package)) getwd(), 
##             paths)
##     paths <- unique(normalizePath(paths[file.exists(paths)]))
##     paths <- paths[dir.exists(file.path(paths, "data"))]
##     dataExts <- tools:::.make_file_exts("data")
##     if (length(names) == 0L) {
##         db <- matrix(character(), nrow = 0L, ncol = 4L)
##         for (path in paths) {
##             entries <- NULL
##             packageName <- if (file_test("-f", file.path(path, 
##                 "DESCRIPTION"))) 
##                 basename(path)
##             else "."
##             if (file_test("-f", INDEX <- file.path(path, "Meta", 
##                 "data.rds"))) {
##                 entries <- readRDS(INDEX)
##             }
##             else {
##                 dataDir <- file.path(path, "data")
##                 entries <- tools::list_files_with_type(dataDir, 
##                   "data")
##                 if (length(entries)) {
##                   entries <- unique(tools::file_path_sans_ext(basename(entries)))
##                   entries <- cbind(entries, "")
##                 }
##             }
##             if (NROW(entries)) {
##                 if (is.matrix(entries) && ncol(entries) == 2L) 
##                   db <- rbind(db, cbind(packageName, dirname(path), 
##                     entries))
##                 else warning(gettextf("data index for package %s is invalid and will be ignored", 
##                   sQuote(packageName)), domain = NA, call. = FALSE)
##             }
##         }
##         colnames(db) <- c("Package", "LibPath", "Item", "Title")
##         footer <- if (missing(package)) 
##             paste0("Use ", sQuote(paste("data(package =", ".packages(all.available = TRUE))")), 
##                 "\n", "to list the data sets in all *available* packages.")
##         else NULL
##         y <- list(title = "Data sets", header = NULL, results = db, 
##             footer = footer)
##         class(y) <- "packageIQR"
##         return(y)
##     }
##     paths <- file.path(paths, "data")
##     for (name in names) {
##         found <- FALSE
##         for (p in paths) {
##             tmp_env <- if (overwrite) 
##                 envir
##             else new.env()
##             if (file_test("-f", file.path(p, "Rdata.rds"))) {
##                 rds <- readRDS(file.path(p, "Rdata.rds"))
##                 if (name %in% names(rds)) {
##                   found <- TRUE
##                   if (verbose) 
##                     message(sprintf("name=%s:\t found in Rdata.rds", 
##                       name), domain = NA)
##                   thispkg <- sub(".*/([^/]*)/data$", "\\1", p)
##                   thispkg <- sub("_.*$", "", thispkg)
##                   thispkg <- paste0("package:", thispkg)
##                   objs <- rds[[name]]
##                   lazyLoad(file.path(p, "Rdata"), envir = tmp_env, 
##                     filter = function(x) x %in% objs)
##                   break
##                 }
##                 else if (verbose) 
##                   message(sprintf("name=%s:\t NOT found in names() of Rdata.rds, i.e.,\n\t%s\n", 
##                     name, paste(names(rds), collapse = ",")), 
##                     domain = NA)
##             }
##             if (file_test("-f", file.path(p, "Rdata.zip"))) {
##                 warning("zipped data found for package ", sQuote(basename(dirname(p))), 
##                   ".\nThat is defunct, so please re-install the package.", 
##                   domain = NA)
##                 if (file_test("-f", fp <- file.path(p, "filelist"))) 
##                   files <- file.path(p, scan(fp, what = "", quiet = TRUE))
##                 else {
##                   warning(gettextf("file 'filelist' is missing for directory %s", 
##                     sQuote(p)), domain = NA)
##                   next
##                 }
##             }
##             else {
##                 files <- list.files(p, full.names = TRUE)
##             }
##             files <- files[grep(name, files, fixed = TRUE)]
##             if (length(files) > 1L) {
##                 o <- match(fileExt(files), dataExts, nomatch = 100L)
##                 paths0 <- dirname(files)
##                 paths0 <- factor(paths0, levels = unique(paths0))
##                 files <- files[order(paths0, o)]
##             }
##             if (length(files)) {
##                 for (file in files) {
##                   if (verbose) 
##                     message("name=", name, ":\t file= ...", .Platform$file.sep, 
##                       basename(file), "::\t", appendLF = FALSE, 
##                       domain = NA)
##                   ext <- fileExt(file)
##                   if (basename(file) != paste0(name, ".", ext)) 
##                     found <- FALSE
##                   else {
##                     found <- TRUE
##                     zfile <- file
##                     zipname <- file.path(dirname(file), "Rdata.zip")
##                     if (file.exists(zipname)) {
##                       Rdatadir <- tempfile("Rdata")
##                       dir.create(Rdatadir, showWarnings = FALSE)
##                       topic <- basename(file)
##                       rc <- .External(C_unzip, zipname, topic, 
##                         Rdatadir, FALSE, TRUE, FALSE, FALSE)
##                       if (rc == 0L) 
##                         zfile <- file.path(Rdatadir, topic)
##                     }
##                     if (zfile != file) 
##                       on.exit(unlink(zfile))
##                     switch(ext, R = , r = {
##                       library("utils")
##                       sys.source(zfile, chdir = TRUE, envir = tmp_env)
##                     }, RData = , rdata = , rda = load(zfile, 
##                       envir = tmp_env), TXT = , txt = , tab = , 
##                       tab.gz = , tab.bz2 = , tab.xz = , txt.gz = , 
##                       txt.bz2 = , txt.xz = assign(name, read.table(zfile, 
##                         header = TRUE, as.is = FALSE), envir = tmp_env), 
##                       CSV = , csv = , csv.gz = , csv.bz2 = , 
##                       csv.xz = assign(name, read.table(zfile, 
##                         header = TRUE, sep = ";", as.is = FALSE), 
##                         envir = tmp_env), found <- FALSE)
##                   }
##                   if (found) 
##                     break
##                 }
##                 if (verbose) 
##                   message(if (!found) 
##                     "*NOT* ", "found", domain = NA)
##             }
##             if (found) 
##                 break
##         }
##         if (!found) {
##             warning(gettextf("data set %s not found", sQuote(name)), 
##                 domain = NA)
##         }
##         else if (!overwrite) {
##             for (o in ls(envir = tmp_env, all.names = TRUE)) {
##                 if (exists(o, envir = envir, inherits = FALSE)) 
##                   warning(gettextf("an object named %s already exists and will not be overwritten", 
##                     sQuote(o)))
##                 else assign(o, get(o, envir = tmp_env, inherits = FALSE), 
##                   envir = envir)
##             }
##             rm(tmp_env)
##         }
##     }
##     invisible(names)
## }
## <bytecode: 0x7f98058c2ea8>
## <environment: namespace:utils>
knitr::include_graphics("MOLAM0001.png",dpi=NA)
(ref:molam1image2)

(ref:molam1image2)